home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / cybint15 / bin / cc.dxr / 00014_sair.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  280 b   |  18 lines
  1. on mouseUp
  2.   global act
  3.   InVis(37)
  4.   set act to 1
  5.   sound playFile 2, "..\som\ovo.wav"
  6.   startTimer()
  7.   repeat while the timer < 20
  8.     nothing()
  9.   end repeat
  10.   onVis(40)
  11.   updateStage()
  12.   startTimer()
  13.   repeat while the timer < 30
  14.     nothing()
  15.   end repeat
  16.   onVis(44, 46)
  17. end
  18.